10 GRAPHICS 8
11 DPOKE 82,9984
12 ? "PieChart"
13 TRAP 30
14 C=0
15 DEG
16 COLOR 1
17 CIRCLE 159,80,80
18 DIM N(8)
20 INPUT "Number ([Ret] when done)";A
21 N(C)=A
22 C=C+1
23 S=S+A
24 GOTO 20
30 TRAP 30
31 IF C<2
32   ? "Min 2"
33   GOTO 20
34 ELSE
35 IF C=9
36   ? "Max 9"
37   ENDIF
38 ENDIF 
40 GOSUB 1000
41 POKE 87,9
42 G=0
43 FOR A=0 TO C-1
44   COLOR A+1
45   NN=(N(A)/S)*360
46   PAINT 17*COS(G+NN/2)+39,70*SIN(G+NN/2)+80
47   G=G+NN
48 NEXT A
50 POKE 87,8
51 COLOR 0
52 CIRCLE 159,80,80
53 GOSUB 1000
54 POKE 623,128
55 POKE 87,9
56 COLOR 8
57 CIRCLE 39,80,20,80
60 GRAPHICS 42
61 DPOKE 704,12+18*256
62 DPOKE 706,36+70*256
63 DPOKE 708,100+132*256
64 DPOKE 710,164+228*256
65 POKE 712,0
999 GOTO 999
1000 G=0
1001 FOR A=0 TO C-1
1002   PLOT 159,80
1003   DRAWTO 80*COS(G)+159,80*SIN(G)+80
1004   G=G+(N(A)/S)*360
1005 NEXT A
1006 RETURN 
